﻿<%
class ActionDump
	private sub Class_Initialize()
	
	end sub
	public sub index
		Mo.assign "title","Dump测试"

		'display top of page
		Mo.display "Home:top"

		F.session "Asp",true
		F.session "Asp.ID",1
		F.session "Asp.Name","Aien"
		
		F.echo "<h3>Session Data DUMP</h3><pre>"
		F.session.dump()
		F.echo "</pre>"
		
		F.echo "<h3>Json Data DUMP</h3><pre>"
		F.dump F.json("[1,2,""3"",{""name"":""anlige"",""age"":24,""boy"":true,""birthday"":new Date(1986,8,1,23,15,14)}]")
		F.echo "</pre>"
		
		Dim item:Set item = Record__()
		item.pk = "id"
		item.Set "name","测试数据"
		item.Set "age","23"
		item.Set "birthday",#1986-9-2 12:23:45#
		item.Set "memo","备注"
		item.Set "grade","1"
		item.assign "Item"
		
		F.echo "<h3>Record DUMP</h3><pre>"
		F.dump item
		F.echo "</pre>"

		
		Mo.assign "appname","MoAspEnginer"
		Mo.assign "birthday",#1986-9-1 12:23:34#
		Mo.assign "address","杭州"
		Mo.assign "boy",true
		Mo.assign "height",171.5
		Mo.assign "list",Array("a","2","v","f","sds","cghf")
		Mo.assign "args","我是变量参数！"
		
		Model__("Public").orderby("id asc").limit(F.Get.Int("page",1),5).query().assign "List"

		F.echo "<h3>Mo DUMP</h3><pre>"
		Mo.dump()
		F.echo "</pre>"
		
		'display foot of page
		Mo.display "Home:foot"
	end sub
	public sub [empty](a)
		F.echo "默认页面：" & a
	end sub
end class
%>